      INTEGER FUNCTION X02BAF(X)
C     MARK 12 RE-ISSUE. NAG COPYRIGHT 1986.
C
C     RETURNS THE BASE OF THE ARITHMETIC USED ON THE COMPUTER
C     I.E. RETURNS THE SAME VALUE AS X02BHF
C
C     .. Scalar Arguments ..
      DOUBLE PRECISION X
C     .. External Functions ..
      INTEGER          X02BHF
      EXTERNAL         X02BHF
C     .. Executable Statements ..
      X02BAF = X02BHF()
      RETURN
      END
